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10init: 

15 direction= UP; 
20 mainjoop: 



25 if mode_switching = ON then: 

30 if Direction - UP then 

40 heatjoop 

50 heat laser light source (set PW = 100%) 

60 if mode_switching - OFF then 

70 calculate new_PW to maintain temp 

80 set PW to new_PW 

90 jump to mainjoop 

100 else 

110 if top_of_range_reached then 

115 Direction = DOWN; 

120 jump to heatjoop; 

130 else 

140 jump to heatjoop; 

150 end if; 

160 end if; 

170 else /*****Direction = DOWN*****/ 

180 cool laser light source (set W = 0%) 

1 85 if mode_switching = OFF then 

190 calculate new_PW to maintain temperature; 

200 set PW to new_PW 

210 jump to mainjoop 

220 else 

230 if bottom_of_range_reached then 

235 Direction = UP; 

240 jump to heatjoop; 

250 else 

260 jump to cooljoop; 

270 end if; 

275 endif; 

280 else 

290 use PW to maintain temperature 

300 jump to mainjoop 

310 endif; 



320 end 



FIG. 8(A) 



10 main_loop 



20 if mode_switching = ON then begin: 

30 if heaLpower = lower (PW <=50%) then 

40 heatjoop: 

50 heat laser light source (set PW = 100%) 

60 if mode_switching = OFF then 

70 calculate new_PW to maintain temp 

80 set PW to new_PW 

90 jump to main Joop 

100 else 

110 if top_of_range_reached then 

120 jump to cooljoo; 

130 else 

140 jump to heatjoop; 

150 end if; 

160 end if; 

1 70 else /*****heat_power=high (PW>50%) ****/ 

175 cooljoop: 

1 80 cool laser light source (set PW = 0%) 

1 85 if mode_switching = OFF then 

190 calculate new_PW to maintain temperature; 

200 set PW to new_PW 

210 jump to main Joop 

220 else 

230 if bottom_of_range_reached then 

240 jump to heatjoop; 

250 else 

260 jump to cooljoop; 

270 end if; 

275 endif; 

280 end if; 

285 else 

290 use PW to maintain temperature 

300 jump to mainjoop 



310 endif; 
320 end 
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Clear 
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No 
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list p= 1 2c5-0 ; list directive to defi ne processor 

#include <o12c509.inc> ; processor specific variable definitions 



_CONFIG _CP_OFF & _WDT_OFF & _MCLR_OFF & JntRC_OSC 

i ' — CONFIG' directive is used to embed configuration word within .asm filed. 
; The labels following the directive are located in the respective .inc file. 
; See respective data sheet for additional information on configuration word. 

;***** VARIABLE DEFINITIONS 
; Labels for variables 



threshold EQU 0x25 ; set threshold level for mode switching 

modeswitch EQU 0x30 ; Input signal location 

heater EQU 0x00 ; Output signal location 

TP EQU 0x02 ; Test Point location 

risel EQU D'120' ; first rise time (120*2 seconds) jumper IN 

nse2 EQU D'45' ; second rise time (45*2 seconds) jumper OUT 

fa"1 EQU D'120' ; first fall time (120*2 seconds) jumper IN 

fal, 2 EQU D'45' ; second fall time (45*2 seconds) jumper OUT 

; Labels for memory locations 

temp EQU 0x07 ; example variable definition 

duty_cycle EQU 0x08 ; Pulse width modulation 

modeswitch_255 EQU 0x09 ; counter to keep track of mode switching 

timerO EQU 0x0a ; keep track of timer changes 

rise EQU 0x0b 

fall EQU 0x0c 

table_pntr EQU OxOd 

flags EQU OxOe 

pntr_cntr EQU OxOf 



ORG 0x3FF ; processor reset vector 

; Internal RC calibration value is placed at location 0x1 FF by Microchip 
; as a movlw kk, where the kk is a literal value. 

ORG 0x000 ; coding begins here 

movwf OSCCAL ; update register with factory cal value 

; remaining code goes here 



. ****************|| S g|-|-|^u2£ 
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MOVLW 
OPTION 

MOVLW 
TRIS 

CLRF 

BCF 

BSF 

MOVLW 
BTSFC 
MOVLW 
MOVWF 

movWf 

MOVLW 
BTFSC 
MOVLW 
MOVWF 

CLRF 
CLRF 

.****************** 



0xc7 



0x3a 
6 



; set up timers etc. 
; set up I/O 



duty_cycle ; set initial duty cycle to 0 

GPIO, heater; turn off heater 

GPIO, heater; turn off heater drive transistor 



risel 
GPIO.5 
rise2 
rise 

pntr_cntr 

falU 
GPI0.5 
fall2 
fall 

flags 

table_pntr 
MAIN LOOP 



; Initialize rise and fall times to 

; setting setting, predetermined constants 

; initialize with rise time 



main: 



BSF 
BCF 

BCF 

BTFSS 
GOTO 

DECFSZ 
GOTO 
BSF 
INCF 



main2: 



MOVLW 

MOVWF 

BTFSC 

CLRF 

GOTO 



GPIO,TP 
GPIO.TP 

flags, 1 



; Toggle test point 



; clear pntr_cntr flag 



flags,0 ; test mode switch flag 
mainl ; jump if not set 

pntr_cntr, 1 ; if not 0, skip 
main2 

flags, 1 ; set pntr_cntr flag 

table_pntr ; advance through table 



Oxff ; load 'up 1 direction 

duty_cycle ; set for up direction 
table_pntr,5 ; if in 'up' direction, skip 
duty_cycle 
main5 



FIG. 8(D)(ii)(a) 



mainl; 



MOVF 
ANDLW 
CALL 
MOVWF 



main5: 



MOVF 

BTFSS 

GOTO 

BCF 

BSF 

GOTO 



main3: 



main4: 



BSF 
BCF 

BTFSS 

GOTO 

MOVF 

BTFSC 

MOVF 

MOVWF 



main6: 



CALL 
CALL 
GOTO 



tabl_pntr,0 ; load table pointer in working register 

0x3f ; strip off higher order bits 

table ; fetch duty cycle from lookup table 

duty_cycle ; load in duty cycle 

duty_cycle,0 ; read in duty cycle 

STATUS,Z ; if nonzero goto main3 

main3 

GPIO.O ; if zero, turn OFF output 

GPIO.heater ; if zero, turn OFF, heater drive transistor 

main4 

GPIO,0 ; turn ON output 

GPIO, heater; turn ON heater drive transistor 

flags, 1 ; if flag is set, reset pntr_cntr 

main6 

rise.O ; reset pntr_cntr 

table_pntr,5 ; reset pntr_cntr 
fall.O 
pntr_cntr 

pulse ; pulse width modulation subroutine 

mode ; update modeswitching, set mode bit 

main ; go back to main routine 
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.★****#*★*****★**, 



SUBROUTINES 



mode: 



BCF 

MOVLW 

SUBWF 

BTFSC 

BSF 

RETLW 



flags.O 
threshold 

modeswitch_255,0 

STATUS,C 

flags,0 

0 



; include mode switching 

; clear mode switching flag 

; put threshold value in accumulator 

; compare 

; if modewsitch__255>threshold 
; set flagO 
; set flag 



; Subroutine to generate pulse width modulation, monitor mode switching 

; Prescaler set to 256 Therefore each pass is 256 usee, 256 passes produces 

; 65 ms basic period for mode switching. 



pulse: 

CLRF 

pulsel: 

INCF 

BTFSC 

GOTO 

pulsela: 

MOVF 
MOVWF 

MOVF 

SUBWF 

BTFSS 

BCF 

BSF 

INCFSZ 

GOTO 

RETLW 



modeswitch_255 

TMRO.O 

STATUS,Z 

pulsel 

TMRO,0 
timerO 

timerO.O 
duty_cycle,0 

STATUS.C 
GPIO, heater 
GPIO, heater 

timerO,0 

pulse2 

0 



; Initialize mode switching register 

; wait until TMRO increments past OxFF 



; load timer into W 
; put in timerO monitor 

; move timerO monitor into W 
; compare duty cycle with timerO 

; if borrow occurs, then 
; clear output 

; turn OFF heater transistor 
; if timer - 255, exit from loop 



FIG. 8(D)(iii)(a) 



pulse2: 

BTFSC 
INCF 

pulse2A: 

MOVF 

XORWF 

BTFSC 

GOTO 

GOTO 



GPIO.modeswitch 
modeswitch_255,1 

timerO.O 
TMRO.O 
STATUS.Z 
pulse2a 
pulse 1a 



;lf GP3 is high, then 
; increment modeswitch 



.****************-j-^g|^^g 
radix dec 



table: 



addwf PCL 

dt 0.24,46,66,84,100,1 15,128,140,151,161,170,178,186,192,198 
dt 203.2008,214,217.200,224,237,339,332,234.236,238,23,241,242,255 
dt 255,231,209,189,171,155,140.127.115,103,94,86,77,69,63,57,51,47 
dt42, 38, 35, 31, 28, 26, 23, 21. 19, 17, 16. 16, 14. 13, 0 
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